home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / pd_os.scr < prev    next >
Encoding:
Text File  |  1996-10-12  |  5.0 KB  |  232 lines
  1. #menulib
  2. Submenu OS
  3. Entry OS_ATARIST[1]Atari ST
  4. Entry OS_ATARIXL[2]Atari XL/XE
  5. Entry OS_MSDOS[3]MS-DOS
  6. Entry OS_OS2[4]OS/2
  7. Entry OS_WIN95[5]Windows 95
  8. Entry [X]All file groups
  9.  
  10. SubMenu OS_ATARIST
  11. Entry [1]Atari
  12. Entry [2]General
  13. Entry FAN[3]FAN-files
  14. Entry [4]NeST-files
  15.  
  16. SubMenu OS_ATARIXL
  17. Entry [1]DOS 2.5 Utils
  18. Entry [2]Graphics
  19. Entry [3]Sound & Music
  20. Entry [4]Games
  21. Entry [5]Wordprocessors
  22. Entry [6]Hardware
  23.  
  24. SubMenu OS_MSDOS
  25. Entry [1]DOS Utils
  26. Entry [2]General
  27. Entry [3]Textfiles
  28. Entry [4]Games
  29. Entry [5]Communication
  30. Entry [6]Graphics
  31. Entry [7]Virus Software
  32. Entry [8]Memory managers
  33. Entry [9]Sound & Music
  34.  
  35. SubMenu OS_OS2
  36. Entry [1]Drivers
  37. Entry [2]Hardware
  38. Entry [3]General
  39. Entry [4]Textfiles
  40. Entry [5]Communication
  41. Entry [6]Graphics
  42. Entry [7]Miscellaneous
  43.  
  44. SubMenu OS_WIN95
  45. Entry [1]Drivers
  46. Entry [2]Hardware
  47. Entry [3]General
  48. Entry [4]Textfiles
  49. Entry [5]Communication
  50. Entry [6]Graphics
  51. Entry [7]Miscellaneous
  52.  
  53. #endlib
  54. /* ------------------------------------------------------------------
  55.  * Filemenu -> Submenu -> Submenu example for use with different
  56.  * (in this case) operating systems.
  57.  *
  58.  * If you take a look at this piece of script you'll think:
  59.  *
  60.  *         What's the reason of the Break ?    
  61.  *
  62.  * It's required because otherwise it can result when you make
  63.  * a choice from the submenu that Octopus does find the next
  64.  * case as 'valid' with a popup from another submenu.  
  65.  */
  66. :FB_os
  67.   IfAscii EchoKey Endif
  68.   DrawMenu OS   Gosub draw_ascii_msg
  69.   DoMenu OS
  70.     SelectChoice
  71.       Case 1   Gosub FB_os_atarist    Break
  72.       Case 2   Gosub FB_os_atarixl    Break
  73.       Case 3   Gosub FB_os_msdos      Break
  74.       Case 4   Gosub FB_os_os2        Break
  75.       Case 5   Gosub FB_os_win95      Break
  76.  
  77. /* If you don't want the next 'X' option in your 
  78.  * submenu then you can also remove the 2 lines with
  79.  * code after the Common statement.  This is needed
  80.  * now because we want a screen redraw after the filelist.
  81.  * 
  82.  * When the common statement is removed, you can also
  83.  * remove above 'Break' commands.
  84.  */
  85.       Case X   SetFileGroup FULL      /* Set Full group */
  86.                 FileListing
  87.  
  88.       Common   Gosub draw_bbsinfo
  89.                DrawMenu File
  90.     EndSelect
  91.   EnddoChoice MenuBarKeys
  92.  
  93.   /* Remove the submenu */
  94. IfChoice CursLeft
  95.   RemoveMenu OS
  96.  ClrChoice               
  97. Endif
  98.  
  99. /* If the submenus are bigger in length (entrys)
  100.  * then you have to comment out the next piece
  101.  * of code.
  102.  *
  103.  *      IfChoice CursRight
  104.  *          RemoveMenu OS
  105.  *         Endif
  106.  */          
  107. Return
  108.  
  109.  
  110. /* -------------------------------------------------------------------
  111.  * Submenu handling for the different OS-es
  112.  */
  113. :FB_os_atarist
  114. DrawMenu OS_ATARIST        Gosub draw_ascii_msg           
  115. DoMenu OS_ATARIST
  116.   SelectChoice
  117.     Case 1   Break
  118.      Case 2     Break
  119. #ifdef FANFILES
  120.     Case 3   SetFilegroup FANFILES  Gosub FB_os_atari_fanfiles  Break
  121. #else
  122.     Case 3   Cls  Send "This BBS does not have files from the FAN filenetwork\r\n\n"
  123.              GetKey    
  124. #endif    
  125.     Case 4   Break 
  126.     Common   Gosub draw_bbsinfo
  127.              DrawMenu File                 
  128.   EndSelect
  129. EnddoChoice MenuBarKeys
  130.  
  131. /* Remove the submenu */
  132. IfChoice CursLeft
  133.     RemoveMenu OS_ATARIST
  134.     ClrChoice               
  135. Endif
  136. Return
  137.  
  138. /* ------------------------------------------------------------------*/
  139. :FB_os_atarixl    
  140. DrawMenu OS_ATARIXL        Gosub draw_ascii_msg           
  141. DoMenu OS_ATARIXL
  142.   SelectChoice
  143.     Case 1         /* DOS 2.5 Utils */
  144.     Case 2      /* ... */
  145.     Case 3
  146.     Case 4   
  147.     Case 5      /* Wordprocessors */
  148.     Case 6      /* Hardware */
  149.     Common  Gosub draw_bbsinfo
  150.             DrawMenu File
  151.   EndSelect
  152. EnddoChoice MenuBarKeys
  153.  
  154. /* Remove the submenu */
  155. IfChoice CursLeft
  156.     RemoveMenu OS_ATARIXL
  157.     ClrChoice               
  158. Endif
  159. Return
  160.  
  161. :FB_os_msdos
  162. DrawMenu OS_MSDOS        Gosub draw_ascii_msg           
  163. DoMenu OS_MSDOS
  164.   SelectChoice
  165.     Case 1         /* DOS Utils */
  166.     Case 2      /* ... */
  167.     Case 3
  168.     Case 4   
  169.     Case 5
  170.     Case 6
  171.     Case 7
  172.     Case 8      
  173.     Case 9      /* Sound & Music */
  174.     Common  Gosub draw_bbsinfo
  175.             DrawMenu File
  176.   EndSelect
  177. EnddoChoice MenuBarKeys
  178.  
  179. /* Remove the submenu */
  180. IfChoice CursLeft
  181.     RemoveMenu OS_MSDOS
  182.     ClrChoice               
  183. Endif
  184. Return
  185.  
  186. :FB_os_os2
  187. DrawMenu OS_OS2        Gosub draw_ascii_msg           
  188. DoMenu OS_OS2
  189.   SelectChoice
  190.     Case 1         /* Drivers */
  191.     Case 2      /* ... */
  192.     Case 3
  193.     Case 4   
  194.     Case 5
  195.     Case 6
  196.     Case 7      /* Miscellaneous */
  197.     Common  Gosub draw_bbsinfo
  198.             DrawMenu File
  199.   EndSelect
  200. EnddoChoice MenuBarKeys
  201.  
  202. /* Remove the submenu */
  203. IfChoice CursLeft
  204.     RemoveMenu OS_OS2
  205.     ClrChoice               
  206. Endif
  207. Return
  208.  
  209. :FB_os_win95
  210. DrawMenu OS_WIN95        Gosub draw_ascii_msg           
  211. DoMenu OS_WIN95
  212.   SelectChoice
  213.     Case 1         /* Drivers */
  214.     Case 2      /* ... */
  215.     Case 3
  216.     Case 4   
  217.     Case 5
  218.     Case 6
  219.     Case 7      /* Miscellaneous */
  220.     Common  Gosub draw_bbsinfo
  221.             DrawMenu File
  222.   EndSelect
  223. EnddoChoice MenuBarKeys
  224.  
  225. /* Remove the submenu */
  226. IfChoice CursLeft
  227.     RemoveMenu OS_WIN95
  228.     ClrChoice               
  229. Endif
  230. Return
  231.  
  232.